home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / eyes / sphereEye.wwModel / initialDefines.eve < prev    next >
Encoding:
Text File  |  1995-03-22  |  2.3 KB  |  76 lines
  1. ##############################
  2. ## the base head is just a sphere
  3. ## I didn't change the name to reflect the fact that I just grabbed
  4. ## this from Examples/WavesWorld/canonicalRIB
  5. #
  6. set sphere(surface) plastic
  7. set sphere(color) {1.0 0.0 0.0}
  8. set sphere(radius) 1.0
  9. EveCmd {set sphere(zMin) -$sphere(radius)}
  10. EveCmd {set sphere(zMax) $sphere(radius)}
  11. set sphere(thetaMax) 360.0
  12. set sphere(volumePreservingScaleFactor) 1.0
  13. EveCmd {set sphere(xScale) [expr 1./sqrt($sphere(volumePreservingScaleFactor))]}
  14. EveCmd {set sphere(yScale) $sphere(volumePreservingScaleFactor)}
  15. EveCmd {set sphere(zScale) [expr 1./sqrt($sphere(volumePreservingScaleFactor))]}
  16. set sphere(xTranslate) 0
  17. set sphere(yTranslate) 0
  18. set sphere(zTranslate) 0
  19. set sphere(xRotate) 0
  20. set sphere(yRotate) 0
  21. set sphere(zRotate) 0
  22.  
  23. #########################
  24. ## there are two eyes...
  25. ## eyes() is stuff that stays the same for both
  26. ## while eye() stuff is specialized for left and right
  27. #
  28. set eyes(xRotate) 0
  29. set eyes(xTranslate) 0
  30. EveCmd {set eyes(yTranslate) [expr {$sphere(radius) * .5}]}
  31. EveCmd {set eyes(zTranslate) [expr {$sphere(radius) * .5}]}
  32. set eyes(protrusion) .95
  33. set eyes(color) {1 1 1} 
  34. set eyes(xRotate) 0
  35. set eyes(yRotate) 15
  36. set eyes(surface) metal
  37.  
  38. set eye(volumePreservingScaleFactor) 1.5
  39. EveCmd {set eye(xScale) [expr 1./sqrt($eye(volumePreservingScaleFactor))]}
  40. EveCmd {set eye(yScale) $eye(volumePreservingScaleFactor)}
  41. EveCmd {set eye(zScale) [expr 1./sqrt($eye(volumePreservingScaleFactor))]}
  42. set eye(color) {1.0 1.0 1.0}
  43. set eye(percentageOfHead) .2
  44. EveCmd {set eye(radius) [expr {$eye(percentageOfHead) * $sphere(radius)}]}
  45. EveCmd {set eye(zMin) -$eye(radius)}
  46. EveCmd {set eye(zMax) $eye(radius)}
  47. set eye(thetaMax) 360.0
  48.  
  49.  
  50. set eye(xRotate) 0
  51. set eye(yRotate) 0
  52.  
  53. ##########################
  54. ## there are two pupils...
  55. #
  56. EveCmd {set pupil(radius) [expr {$eye(radius)*.5}]}
  57. set pupil(scale) 1.0
  58. set pupil(color) {0 0 0}
  59.  
  60. ##########################
  61. # there are two eyeLids...
  62. #
  63. set eyeLid(sizeFactor) 1.05
  64. set eyeLid(scaleFactor) 1.3
  65. set eyeLid(upperTheta) 0
  66. set eyeLid(lowerTheta) 0
  67. EveCmd {set eyeLid(xScale) $eye(xScale)}
  68. EveCmd {set eyeLid(yScale) $eye(yScale)}
  69. EveCmd {set eyeLid(zScale) [expr {$eye(zScale) * $eyeLid(scaleFactor)}]}
  70. EveCmd {set eyeLid(color) $sphere(color)}
  71. EveCmd {set eyeLid(surface) $sphere(surface)}
  72.  
  73.  
  74. set averyFactor 1.0
  75.  
  76. set squintTime 1.0